﻿Imports Dainfo.ControleEstoque.Model
Imports Dainfo.ControleEstoque.Dados
Imports System.Globalization

Partial Public Class CadastroDeProdutos
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnSalvar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSalvar.Click
        Threading.Thread.CurrentThread.CurrentCulture = CultureInfo.GetCultureInfo("pt-BR")



        Dim marca As New Marca()
        marca.Codigo = ddlMarca.SelectedValue
        marca.Nome = ddlMarca.SelectedItem.Text

        Dim grupo As New Grupo()
        grupo.Codigo = ddlGrupo.SelectedValue
        grupo.Nome = ddlGrupo.SelectedItem.Text()

        Dim produto As New Produto()
        produto.Descricao = txtDescricao.Text
        produto.Marca = marca
        produto.Grupo = grupo
        produto.Quantidade = txtQuantidade.Text
        produto.ValorCompra = Convert.ToDouble(txtValorCompra.Text.Replace("R$", "").Replace("_", "").Replace(".", ""))
        produto.ValorVenda = Convert.ToDouble(txtValorVenda.Text.Replace("R$", "").Replace("_", "").Replace(".", ""))
        produto.DescricaoWeb = Editor1.Content

        Dim dadosProduto As New DadosProduto()
        dadosProduto.Insert(produto)

        Response.Redirect("PesquisaProdutos.aspx")
    End Sub

    Protected Sub btnCancelEditor_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancelEditor.Click
        LinkButton1_ModalPopupExtender.Hide()
    End Sub
End Class